home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 02.a (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  41 lines
  1. 60000 rem tabellen einlesen ----------------------------------------------------
  2. 60001 :
  3. 60100 rem wortschatz-index -----------
  4. 60110 dimin(26)
  5. 60120 fori=0to26:read in(i):nexti
  6. 60130 data 1,4,0,29,32,48,53,64,72,0,74,82,0,88,96,100,107,109,124,160,167
  7. 60140 data 170,190,0,0,201
  8. 60150 data 211 : rem buchstabe nach z !
  9. 60200 rem objekt-tabelle -------------
  10. 60210 oz=13:rem anzahl der objekte
  11. 60220 dim ob(oz),ox(oz),oa(oz),ou(oz),os(oz)
  12. 60230 fori=1tooz
  13. 60240 : readob(i),ox(i),oa(i),ou(i),os(i)
  14. 60250 nexti
  15. 60260 data 1,24 ,1,24 ,164:rem glaskuppel
  16. 60262 data 1,0  ,2,95 ,165:rem sand
  17. 60264 data 2,34 ,1,34 ,166:rem tunnel
  18. 60266 data 3,43 ,1,43 ,167:rem kr.grotte
  19. 60268 data 3,102,2,0  ,168:rem quader
  20. 60270 data 3,0  ,2,113,169:rem statue
  21. 60272 data 3,106,0,0  ,170:rem schwert
  22. 60274 data 0,0  ,3,79 ,171:rem zettel
  23. 60276 data 0,0  ,3,87 ,172:rem amulett
  24. 60278 data 0,76 ,2,91 ,173:rem grube
  25. 60279 data 0,161,2,0  ,174:rem oeffnung
  26. 60280 data 4,54 ,1,54 ,175:rem felsplat.
  27. 60282 data 3,0  ,2,97 ,176:rem kristalle
  28. 60500 rem landkarte ------------------
  29. 60501 :
  30. 60510 dim map(4,10)
  31. 60520 fori=1to4
  32. 60530 : fori1=1to10
  33. 60540 :   read map(i,i1)
  34. 60550 : nexti1
  35. 60560 nexti
  36. 60570 data 2,0,0,0,0,0,0,0,0,0
  37. 60572 data 3,1,0,0,0,0,0,0,0,0
  38. 60574 data 0,2,0,0,0,0,0,0,0,0
  39. 60576 data 0,0,0,3,0,0,0,0,0,0
  40. 60600 return
  41.